home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 92xx / 9206b.d64 / b-copper 1.asc < prev    next >
Text File  |  1995-03-30  |  2KB  |  75 lines
  1.  
  2. ;***************************************
  3. ;** BORDER-COPPERBARS  (W) '92 BY PIT **
  4. ;***************************************
  5.  
  6.          *= $1000    ;STARTADRESSE $1000
  7.  
  8.          SEI         ;IRQ SETZEN
  9.          LDA #<START ;VEKTOREN
  10.          STA $0314   ;AUF EIGENE
  11.          LDA #>START ;ROUTINE
  12.          STA $0315   ;VERBIEGEN
  13.  
  14.          LDA #$01    ;NUR RASTER-IRQ
  15.          STA $D01A   ;ZULASSEN
  16.  
  17.          LDA $D011   ;Y-SCROLL REGISTER
  18.          AND #$7F    ;AUF ORIGINAL-WERT
  19.          STA $D011   ;SETZEN
  20.  
  21.          LDA #$00    ;GHOST-BYTE
  22.          STA $3FFF   ;LOESCHEN
  23.          CLI         ;IRQ-FLAG LOESCHEN
  24.          RTS         ;ZURUECK
  25.  
  26. START    LDA $DC0D   ;IRQ VON DER
  27.          BMI BORDER  ;CIA ODER VOM VIC?
  28.          LDA $D019   ;IRR LOESCHEN
  29.          STA $D019   ;
  30.          JMP $EA81   ;UND ZUM ALTEN IRQ
  31.  
  32. ;--- --- --- --- --- --- --- --- --- ---
  33. BORDER   LDA #$F0    ;RASTERSTRAHL AUF
  34. RZY1     CMP $D012   ;POSITION $F0 ??
  35.          BNE RZY1    ;
  36.  
  37.          LDX #$21    ;WARTESCHLEIFE
  38. RZY2     DEX         ;ZUM AUSTIMEN
  39.          BNE RZY2    ;
  40.  
  41.          LDX #$00    ;
  42. RZY3     TXA         ;AKKU
  43.          AND #$07    ;VERKNUEPFEN
  44.          ORA #$18    ;(KEIN TEXT)
  45.          LDY COLORS,X;FARBE LADEN
  46.          STA $D011   ;VERKNUEPFTER WERT
  47.                      ;IN $D011 SCHREIBEN
  48.          STY $D020   ;UND FARBEN IN
  49.          STY $D021   ;DIE FARBREGISTER
  50.          JSR WAIT    ;AUSTIMEN
  51.          JSR WAIT    ;AUSTIMEN
  52.          INX         ;
  53.          CPX #$28    ;SCHON ALLE FARBEN?
  54.          BNE RZY3    ;
  55.  
  56.          LDA #$00    ;BILDSCHIRM
  57.          STA $D020   ;AUF SCHWARZ
  58.          STA $D021   ;SETZEN
  59.  
  60.          JMP $EA31   ;ALTER IRQ
  61.  
  62. WAIT     BIT $FF     ;3 ZYKLEN +
  63.          NOP         ;2 ZYKLEN WARTEN
  64.          RTS         ;UND ZURUECK
  65.  
  66. ;--- --- --- --- --- --- --- --- --- ---
  67. COLORS   .BYTE $06,$00,$06,$04,$00,$06
  68.          .BYTE $04,$0E,$03,$00,$06,$04
  69.          .BYTE $0E,$03,$07,$00,$06,$04
  70.          .BYTE $0E,$03,$07,$01,$00,$06
  71.          .BYTE $04,$0E,$03,$07,$01,$07
  72.          .BYTE $03,$0E,$04,$06
  73. ;--- --- --- --- --- --- --- --- --- ---
  74.  
  75.